Available online here.
dat = airquality
dat$Date = as.Date(paste(1973, dat$Month, dat$Day, sep = "-"))
p0 = plot_ly(dat, x = ~ Date, y = ~ Ozone, type = "bar")
p1 = p0 %>% layout(
xaxis = list(
rangeselector = list(
buttons = list(
list(
count = 1
, label = "1 mo"
, step = "month"
, stepmode = "backward"
)
, list(step = "all")
)
)
)
)
p1
p1 %>% layout(
xaxis = list(
range = c(
{
dt = max(dat$Date)
lubridate::month(dt) = lubridate::month(dt) - 1
dt
}
, max(dat$Date)
)
)
)
IycgLS0tCiMnIHRpdGxlOiAicGxvdGx5IGlzc3VlICMxODM2OiAnU2V0IGRlZmF1bHQgYnV0dG9uIGluIHJhbmdlc2VsZWN0b3InIgojJyBhdXRob3I6ICJmZGV0c2NoIgojJyBvdXRwdXQ6CiMnICAgaHRtbF9ub3RlYm9vazoKIycgICAgIGNvZGVfZm9sZGluZzogc2hvdwojJyAgICAgdG9jOiB0cnVlCiMnICAgICB0b2NfZGVwdGg6IDIKIycgICAgIHRvY19mbG9hdDogdHJ1ZQojJyAgICAgY29sbGFwc2VkOiBmYWxzZQojJyAtLS0KIysgc2V0dXAsIGluY2x1ZGU9RkFMU0UKa25pdHI6Om9wdHNfY2h1bmtbWydzZXQnXV0oY29sbGFwc2U9RkFMU0UsIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0UsIHByb21wdD1GQUxTRSkKIysgbGlicywgZWNobz1GQUxTRQpsaWJyYXJ5KHBsb3RseSkKCiMnIEF2YWlsYWJsZSBvbmxpbmUgW2hlcmVdKGh0dHBzOi8vZ2l0aHViLmNvbS9yb3BlbnNjaS9wbG90bHkvaXNzdWVzLzE4MzYpLgoKZGF0ID0gYWlycXVhbGl0eQpkYXQkRGF0ZSA9IGFzLkRhdGUocGFzdGUoMTk3MywgZGF0JE1vbnRoLCBkYXQkRGF5LCBzZXAgPSAiLSIpKQoKcDAgPSBwbG90X2x5KGRhdCwgeCA9IH4gRGF0ZSwgeSA9IH4gT3pvbmUsIHR5cGUgPSAiYmFyIikKCnAxID0gcDAgJT4lIGxheW91dCgKICB4YXhpcyA9IGxpc3QoCiAgICByYW5nZXNlbGVjdG9yID0gbGlzdCgKICAgICAgYnV0dG9ucyA9IGxpc3QoCiAgICAgICAgbGlzdCgKICAgICAgICAgIGNvdW50ID0gMQogICAgICAgICAgLCBsYWJlbCA9ICIxIG1vIgogICAgICAgICAgLCBzdGVwID0gIm1vbnRoIgogICAgICAgICAgLCBzdGVwbW9kZSA9ICJiYWNrd2FyZCIKICAgICAgICApCiAgICAgICAgLCBsaXN0KHN0ZXAgPSAiYWxsIikKICAgICAgKQogICAgKQogICkKKQpwMQoKcDEgJT4lIGxheW91dCgKICB4YXhpcyA9IGxpc3QoCiAgICByYW5nZSA9IGMoCiAgICAgIHsKICAgICAgICBkdCA9IG1heChkYXQkRGF0ZSkKICAgICAgICBsdWJyaWRhdGU6Om1vbnRoKGR0KSA9IGx1YnJpZGF0ZTo6bW9udGgoZHQpIC0gMQogICAgICAgIGR0CiAgICAgIH0KICAgICAgLCBtYXgoZGF0JERhdGUpCiAgICApCiAgKQopCg==